home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 November & December / Amiga-CD 1996 #11-12.iso / pd-disketten / ungepackt / 9_95 / apd-9-95-4-1 / installcanontreiber / install-driver < prev    next >
Text File  |  1996-01-22  |  47KB  |  1,524 lines
  1. ; $VER: Canon Driver Disk V3.01 (20.02.95)
  2. ; Copyright (C) 1992-95 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6. ;**** English text
  7.  
  8. (set #welcome
  9. (cat "\nIntermediate: printer drivers get installed on the used system disk.\n"
  10.     "Expert:  may install printer drivers on any wanted disks.\n\n"
  11. ))
  12. (set #welcome-pirate
  13. (cat "\nWelcome to the Canon printer software!\n\n"
  14.     "Copyright (C) 1992-95 by Wolf Faust\n"
  15.     "Distribution by Canon Europe N.V.\n"
  16.     "\nTHIS DISK MAY NOT BE DISTRIBUTED WITHOUT\n"
  17.         "PRIOR PERMISSION IN WRITING BY WOLF FAUST\n OR CANON EUROPE N.V.!\n"
  18. ))
  19. (set #bad-kick
  20. (cat    "\nYour system software is very old. "
  21.     "You must use at least Kickstart 2.04 for all Canon programs "
  22.     "with  an  user-interface.   Anyway,  you may use the printer "
  23.     "drivers until you have updated your system software."
  24. ))
  25. (set #w-studio
  26. (cat "Wich parts do you want to install?"
  27. ))
  28. (set #w-studio-help
  29. (cat "\nThis disk is devided in two independent parts: "
  30.     "the printer drivers and the CanonStudio print program. "
  31.     "You can now select wich part/s should be installed!\n\n".
  32.     @askoptions-help
  33. ))
  34. (set #w-studio-choices1
  35. (cat "Canon printer driver"
  36. ))
  37. (set #w-studio-choices2
  38. (cat "CanonStudio application program"
  39. ))
  40. (set #which-disk
  41. (cat "\nSelect the disk or drawer the 'CanonStudio' application drawer should be created in?"
  42. ))
  43. (set #which-disk-help
  44. (cat "\nThis section lets you choose in which drawer or on which disk the "
  45.     "CanonStudio application program drawer should be installed. "
  46.     "These should normally go into the default directory of your graphic "
  47.     "application programs.\n\n"
  48.     @askdir-help
  49. ))
  50. (set #abortmsg
  51. (cat "\nThis installation requires about 160000 bytes free on the volume "
  52.     "where you wish to install CanonStudio. Please make this space "
  53.     "available and then re-install.\n\n"
  54. ))
  55. (set #abortunpack
  56. (cat "\nError occured while unpacking/writing a file!\nSure there "
  57.     "is enough disk space left?\n\n"
  58. ))
  59. (set #abortunpack2
  60. (cat "\nError occured while running the installation decompression program. "
  61.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  62. ))
  63.  
  64. (set #ask-sys
  65. (cat "\nIn which disk or drawer should the Canon printer driver be installed?"
  66. ))
  67. (set #ask-sys-help
  68. (cat "\nThis section lets you choose in which drawer or on which disk the "
  69.     "Canon printer driver should be installed. "
  70.     "The driver should normally go into the \"devs:printers\" directory "
  71.     "of your system disk.\n\n"
  72.     @askdir-help
  73. ))
  74.  
  75. (set #abortmsgdriver
  76. (cat "\nThis installation requires >45000 bytes free on the volume "
  77.     "where you wish to install the printer driver. Please make this space "
  78.     "available and then re-install.\n\n"
  79. ))
  80.  
  81. (set #ask-prefs
  82. (cat "\nIn which disk or drawer should the printer preferences program be installed?"
  83. ))
  84. (set #ask-prefs-help
  85. (cat "\nThis section lets you choose in which drawer or on which disk the "
  86.     "Canon printer driver preferences program (\"CanonPref\") should be installed. "
  87.     "These should normally go into the \"sys:prefs\" directory of your system "
  88.     "disk.\n\n"
  89.     @askdir-help
  90. ))
  91. (set #abortmsgpref
  92. (cat "\nThis installation requires >80000 bytes free on the volume "
  93.     "where you wish to install the preferences program. Please make this space "
  94.     "available and then re-install.\nFloppy users can install the Canon preference "
  95.     "on any free disk!\n\n"
  96. ))
  97. (set #missing-env-kick
  98. (cat "\nThere is no ENV: directory available for storing the driver environment settings!\n"
  99.     "Canon drivers store settings like emulation and brightness in the ENV: directory. "
  100.     "Normaly, ENV: is generated by the standard Commodore startup-sequence.\n"
  101.     "It seems, you have altered the startup-sequence. Please change the startup-sequence "
  102.     "and reinstall!\n\n"
  103. ))
  104. (set #ask-env-mes
  105. (cat "\nThere is no ENV: directory available for storing the driver environment settings!\n"
  106.     "Canon drivers store settings like emulation and brightness in the ENV: directory. "
  107.     "Normaly, ENV: is generated by the standard Commodore startup-sequence.\n"
  108.     "It seems, you have altered the startup-sequence. You may now change the startup-sequence "
  109.     "with the help of this install program!\n\n"
  110. ))
  111. (set #ask-env
  112. (cat "\nIn which disk or drawer should the environment settings (ENV:) be saved?"
  113. ))
  114. (set #ask-env-help
  115. (cat "\nThis section lets you choose in which drawer or on which disk the "
  116.     "Canon printer driver places its enviroment settings. "
  117.     "These should normally go in the \"ENV:\" directory of your system disk.\n\n"
  118.     "Make sure ENV: is saved on a non volatile disk, so your settings "
  119.     "keep active even after a turning off your computer\n\n"
  120.     @askdir-help
  121. ))
  122. (set #ask-startup
  123. (cat "\nAdd ENV: assign to \"S:user-startup\"?"
  124. ))
  125. (set #ask-startup-help
  126. (cat "\nSelect YES to add assign to the user-startup file\n\n"
  127.     @startup-help
  128. ))
  129. (set #warn-env-kick
  130. (cat "\nNote: Please make sure your ENV: directory is assigned to a non volatile "
  131.     "disk in your \"s:startup-sequence\" or you will loose your driver settings "
  132.     "when turning off your computer. So please, check your startup-sequence after "
  133.     "finishing this installation and change it if required.\n\n"
  134.     "Note: unchanged standard Workbench 1.3.x startup-sequences do NOT assign "
  135.     "ENV: to a non-volatile disk and must get altered\n"
  136. ))
  137. (set #cfm-delete
  138. (cat "\n\nCan the old Canon printer driver settings be deleted?"
  139. ))
  140. (set #cfm-delete-help
  141. (cat "\nIt seems you have allready installed a Canon printer driver. "
  142.     "You must delete the settings made for the previous driver before "
  143.     "installing a new driver.\n\n"
  144. ))
  145. (set #cfm-delete-1
  146. (cat "Yes, kill'm"
  147. ))
  148. (set #cfm-delete-2
  149. (cat "No"
  150. ))
  151. (set #cfmdelete
  152. (cat "You did not allow me to delete your old driver settings! "
  153.     "Sorry, I'm unable to install a driver without erasing your "
  154.     "previous settings. This is done for your secure. "
  155.     "In case you decided to delete the settings, try installing again!\n\n"
  156. ))
  157. (set #w-emul
  158. (cat "What printer do you have?"
  159. ))
  160. (set #w-emul-help
  161. (cat "\nThis disk includes several printer drivers for various "
  162.     "Canon printers. "
  163.     "In case your printer is not listed, have a look into your printers user manual for "
  164.     "finding the emulation supported by your printer.\n\n"
  165.     "NOTE: often printers support more than one emulation. "
  166.     "You may have to try several emulations to find the one "
  167.     "fitting your needs best!\n\n"
  168.     @askchoice-help
  169. ))
  170. (set #w-color
  171. (cat "What kind of printer do you have?"
  172. ))
  173. (set #w-color-help
  174. (cat "\nCanon printer drivers allow you to print up to 256 greyshades "
  175.     "simulating a color printer. In order to enable this feature, you have "
  176.     "to choose between color or 256 greyshades.\n"
  177.     "You should select the kind of printer you have as default. "
  178.     "You may alter the setting anytime using the CanonPref preferences program.\n\n"
  179.     @askchoice-help
  180. ))
  181. (set #w-color-choice1
  182. (cat "Color"
  183. ))
  184. (set #w-color-choice2
  185. (cat "Black and white"
  186. ))
  187.  
  188. (set #finalmsg1
  189. (cat "Your requested driver has been installed. The name of the driver is\n\""
  190. ))
  191.  
  192. (set #finalmsg2
  193. (cat "\"\nand should now be selected in the Workbench preferences program \"Printer\".\n"
  194.     "The Canon driver preferences program has been saved as\n\"CanonPref\""
  195.     "\nand should now be used to adjust the driver to your needs.\n"
  196.     "Note: the settings and adjustments made by this install program are far from "
  197.     "being best. Please adjust all settings to your printer and paper!"
  198. ))
  199.  
  200. (set #wrongdither
  201. (cat "\n\nWARNING: Your Workbench preferences is setup WRONG!\n\n"
  202.     "Please select \"ordered\" dithering in preferences "
  203.     "(in \"PrinterGfx\"). I will now try to start Workbench preferences for you."
  204. ))
  205.  
  206. (set #pagestream
  207. (cat "\n\nDo you want to install a BJ2x0 driver for the "
  208.     "PageStream 2.x DTP program?\n\n"
  209. ))
  210. (set #pagestreamLBP
  211. (cat "\n\nDo you want to install a CaPSL 3-4 driver for the "
  212.     "PageStream 2.x DTP program?\n\n"
  213. ))
  214. (set #pagestreamA1
  215. (cat "\n\nDo you want to install a CaPSL 1-2 driver for the "
  216.     "PageStream 2.x DTP program?\n\n"
  217. ))
  218. (set #pagestream-help
  219. (cat "\nThis disk comes with a special printer driver for the PageStream 2.x "
  220.     "program. In case you own this DTP package, you can use this faster "
  221.     "printer driver, offering a 200%% speed increase.\n"
  222. ))
  223. (set #pagestream-yes
  224. (cat "Yes"
  225. ))
  226. (set #pagestream-no
  227. (cat "No"
  228. ))
  229.  
  230. (set #ask-pagestream
  231. (cat "\nIn which drawer should the PageStream drivers (BJ2x0, CanonBJCx00, CanonA2 or CanonLBP) be saved?"
  232. ))
  233. (set #ask-pagestream-help
  234. (cat "\nThis section lets you choose in which drawer the PageStream driver should be saved. "
  235.     "These should normally go into the PageStream \"Printers\" directory.\n\n"
  236.     @askdir-help
  237. ))
  238.  
  239.  
  240. (set #ask-docs
  241. (cat "\nIn which drawer should the documentation be saved?"
  242. ))
  243. (set #ask-docs-help
  244. (cat "\nThis section lets you choose in which drawer the Canon documentation should be saved.\n\n"
  245.     @askdir-help
  246. ))
  247. (set #abortdocs
  248. (cat "\nThis installation requires >190000 bytes free on the volume "
  249.     "where you wish to install the documentation. Please make this space "
  250.     "available and then re-install.\n\n"
  251. ))
  252. (set #sorry
  253. (cat "\n\nSorry, this disk does not include the requested software. "
  254.     "There simply wasn't enough disk space left for your wanted driver. "
  255.     "Please contact your dealer or the Canon Hotline and ask for a different disk "
  256.     "containing a driver for your printer. Ask for the CanonDisk for BJ/BJC printers."
  257. ))
  258. (set #waitmsg
  259. (cat "\n\n\n\nWorking! Please wait..."
  260. ))
  261. (set docfile "Readme")
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268. ;*** German
  269. (if (= @language "deutsch")
  270. (
  271.     (set #welcome
  272.     (cat "\nBei \"Intermediate\" werden die Treiber auf der aktuellen Systemdiskette installiert.\n"
  273.         "Bei \"Expert\" können die Druckertreiber auf einer beliebigen Disk gespeichert werden.\n\n"
  274.     ))
  275.     (set #welcome-pirate
  276.     (cat "\nWillkommen zur Installation der Canon-Druckersoftware!\n\n"
  277.         "Copyright (C)1992-95 Wolf Faust\nVertrieb: Canon Europe N.V.\n"
  278.         "\nDIESE DISKETTE DARF NICHT OHNE SCHRIFTLICHE ERLAUBNIS\n"
  279.         "VON WOLF FAUST ODER CANON EUROPE N.V. VERTRIEBEN WERDEN!\n"
  280.     ))
  281.     (set #bad-kick
  282.     (cat    "\nIhre System-Software ist sehr alt. "
  283.         "Sie brauchen mindestens Kickstart 2.04 für alle Canon-Programme "
  284.         "mit einer Benutzeroberfläche. Sie können dennoch die Druckertreiber "
  285.         "benutzen, bis Sie Ihre System-Software auf den neusten Stand gebracht haben."
  286.     ))
  287.     (set #w-studio
  288.     (cat "Welche Programme der Canon Diskette wollen Sie installieren?"
  289.     ))
  290.     (set #w-studio-help
  291.     (cat "\nDie Canon Software besteht im wesentlichen aus zwei von einander "
  292.         "unabhängigen Teilen: Druckertreiber und dem CanonStudio-Anwendungsprogramm. "
  293.         "Sie können jetzt wählen, welche Teile Sie installieren wollen.\n\n"
  294.         @askoptions-help
  295.     ))
  296.     (set #w-studio-choices1
  297.     (cat "Canon Druckertreiber"
  298.     ))
  299.     (set #w-studio-choices2
  300.     (cat "CanonStudio Anwendungsprogramm"
  301.     ))
  302.     (set #which-disk
  303.     (cat "\nWählen Sie eine Disk/Verzeichnis, in dem das CanonStudio-Verzeichnis angelegt werden soll."
  304.     ))
  305.     (set #which-disk-help
  306.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  307.         "Schublade die CanonStudio-Schublade kopiert werden soll. Normalerweise sollten "
  308.         "Sie hierzu die Schublade wählen, in der Sie auch Ihre anderen "
  309.         "Grafikprogramme speichern.\n\n"
  310.         "Bitte beachten Sie, daß das CanonStudio-Programm in die Schublade kopiert "
  311.         "wird und keine neue Schublade ohne ausdrücklichen Wunsch angelegt wird.\n\n"
  312.         @askdir-help
  313.     ))
  314.     (set #abortmsg
  315.     (cat "\nDas CanonStudio-Programm benötigt ca. 160000 Bytes an freiem Speicher "
  316.         "auf dem von Ihnen angegebenen Datenträger. Leider ist nicht genug "
  317.         "Speicherplatz auf dem Datenträger vorhanden. Löschen Sie bitte "
  318.         "daher unnötige Dateien und versuchen Sie die Installation erneut!\n\n"
  319.     ))
  320.     (set #abortunpack
  321.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  322.         "Sind Sie sicher, daß genug freier Speicherplatz auf der Disk ist?\n\n"
  323.     ))
  324.     (set #abortunpack2
  325.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  326.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  327.     ))
  328.     (set #ask-sys
  329.     (cat "\nIn welche Disk oder Schublade soll der Canon Druckertreiber kopiert werden?"
  330.     ))
  331.     (set #ask-sys-help
  332.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  333.         "Schublade der Canon-Druckertreiber kopiert werden soll. Normalerweise sollten "
  334.         "Sie hierzu die Schublade \"Devs:Printers\" wählen.\n\n"
  335.         @askdir-help
  336.     ))
  337.     (set #abortmsgdriver
  338.     (cat "\nDer Canon Druckertreiber benötigt ca. 45000 Bytes an freiem Speicher "
  339.         "auf dem von Ihnen angegebenen Datenträger. Leider ist nicht genug "
  340.         "Speicherplatz auf dem Datenträger vorhanden. Löschen Sie bitte "
  341.         "daher unnötige Dateien und versuchen Sie die Installation erneut!\n\n"
  342.     ))
  343.     (set #ask-prefs
  344.     (cat "\nIn welche Disk oder Schublade soll das Voreinsteller-Programm "
  345.         "(engl. Preferences) kopiert werden?"
  346.     ))
  347.     (set #ask-prefs-help
  348.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  349.         "Schublade das CanonPref Voreinsteller-Programm kopiert werden soll. "
  350.         "Normalerweise sollten Sie hierzu die Schublade \"Sys:prefs\" wählen.\n\n"
  351.         @askdir-help
  352.     ))
  353.     (set #abortmsgpref
  354.     (cat "\nDas CanonPref-Programm für die Voreinstellungen benötigt ca. 80000 Bytes "
  355.         "an freiem Speicherplatz auf der angegebenen Disk.\n\n"
  356.         "Leider habe Sie nicht genug Speicherplatz auf der Disk frei! "
  357.         "Bitte machen Sie genug Speicherkapazität frei und versuchen erneut "
  358.         "eine Installation!\nDisketten-Benutzer können das Programm auch "
  359.         "auf eine leere Diskette installieren.\n\n"
  360.     ))
  361.     (set #missing-env-kick
  362.     (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  363.         "Canon speichert alle Treiber-Einstellungen in dieser Schublade. "
  364.         "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  365.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  366.         "Startup-Sequence.\n"
  367.         "Bitte korregieren Sie Ihre Startup-Sequence und installieren den Treiber von "
  368.         "neuem!\n\n"
  369.     ))
  370.     (set #ask-env-mes
  371.     (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  372.         "Canon speichert alle Treiber-Einstellungen in dieser Schublade. "
  373.         "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  374.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  375.         "Startup-Sequence.\n\n"
  376.         "Sie erhalten jetzt die Möglichkeit, Ihre Startup-Sequence mittels "
  377.         "dieses Installations-Programms zu erweitern.\n\n"
  378.     ))
  379.     (set #ask-env
  380.     (cat "\nIn welche Disk oder Schublade sollen die Voreinstellungen (\"Env:\") gespeichert werden?"
  381.     ))
  382.     (set #ask-env-help
  383.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  384.         "Schublade der Canon-Druckertreiber seine Voreinstellungen speichert. "
  385.         "Die hier anzugebene Disk bzw. die Schublade (ENV:) sollte NICHT aus einem "
  386.         "leicht löschbaren Medium (z.B. Ram Disk) bestehen, da Sie sonst mit "
  387.         "dem Ausschalten des Computers auch alle Voreinstellungen löschen.\n\n"
  388.         @askdir-help
  389.     ))
  390.     (set #ask-startup
  391.     (cat "\nSoll ich die Zuweisung von "ENV:" in der Datei \"S:user-startup\" vornehmen?"
  392.     ))
  393.     (set #ask-startup-help
  394.     (cat "\nCanon Druckertreiber speichern Ihre Voreinstellung in \"Env:\". "
  395.         "Die Schublade ENV: wird normalerweise von der Startup-Sequence- bzw. User-Startup-Datei Ihres Rechners "
  396.         "angelegt. Dieser Vorgang findet scheinbar bei Ihnen nicht statt. "
  397.         "Sie können daher jetzt mit \"Ja\" (engl. yes) diesen Vorgang Ihrer "
  398.         "User-Startup-Datei hinzufügen.\n\n"
  399.         @startup-help
  400.     ))
  401.     (set #warn-env-kick
  402.     (cat "\nBitte versichern Sie sich, daß die Inhalte der Env:-Schublade bei Ihnen "
  403.         "nicht durch ausschalten des Rechners verloren geht. Env: sollte nicht "
  404.         "einem Verzeichnis im Speicher (Ram Disk) Ihres Rechners zugewiesen sein.\n\n"
  405.         "Achtung: die standard Startup-Sequence der Commodore Workbench 1.3 "
  406.         "weist ENV: einem flüchtigen Speicher zu und muß daher geändert werden!\n"
  407.     ))
  408.     (set #cfm-delete
  409.     (cat "\n\nKönnen die alten Canon-Voreinstellungen gelöscht werden?"
  410.     ))
  411.     (set #cfm-delete-help
  412.     (cat "\nEs scheint, Sie hatten bereits einmal einen Canon Treiber "
  413.         "installiert. Sie müssen die Voreinstellungen des alten Treibers "
  414.         "löschen, bevor ein neuer Treiber installiert werden kann.\n\n"
  415.     ))
  416.     (set #cfm-delete-1
  417.     (cat "Ja, löschen"
  418.     ))
  419.     (set #cfm-delete-2
  420.     (cat "Nein"
  421.     ))
  422.     (set #cfmdelete
  423.     (cat "Tut mir leid, aber ohne das Löschen Ihrer alten Voreinstellungen "
  424.         "kann kein neuer Treiber installiert werden. Dies dient der "
  425.         "Datensicherheit. Sollten Sie sich anders entscheiden, dann rufen "
  426.         "Sie bitte das Installationsprogramm erneut auf!\n\n"
  427.     ))
  428.     (set #w-emul
  429.     (cat "Was für einen Drucker besitzen Sie?"
  430.     ))
  431.     (set #w-emul-help
  432.     (cat "\nDiese Disk enthält Druckertreiber für verschiedene Drucker-Emulationen. "
  433.         "Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
  434.         "die von Ihrem Drucker unterstützten Emulationen.\n\n"
  435.         "Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
  436.         "Versuchen Sie daher ruhig mehrere Emulationen aus, um die für Sie richtige zu finden.\n\n"
  437.         @askchoice-help
  438.     ))
  439.     (set #w-color
  440.     (cat "Was für einen Drucker haben Sie?"
  441.     ))
  442.     (set #w-color-help
  443.     (cat "\nCanon Druckertreiber erlauben das Drucken von bis zu 256 Graustufen "
  444.         "durch das Emulieren eines Farbdruckers. Sie müssen daher zwischen "
  445.         "Farb- und Graustufen-Druck wählen.\n"
  446.         "Wählen Sie die von Ihnen am meisten benutzte Ausdrucksform. "
  447.         "Die Einstellung kann dann später bei Bedarf jederzeit geändert "
  448.         "werden.\n\n"
  449.         @askchoice-help
  450.     ))
  451.     (set #w-color-choice1
  452.     (cat "Farbe"
  453.     ))
  454.     (set #w-color-choice2
  455.     (cat "Graustufen"
  456.     ))
  457.     
  458.     (set #finalmsg1
  459.     (cat "Der Treiber wurde installiert unter dem Namen\n\""
  460.     ))
  461.     (set #finalmsg2
  462.     (cat "\"\nund sollte jetzt in dem \"Printer\"-Programm der Workbench eingestellt werden.\n"
  463.         "Das CanonPref-Programm für die Voreinstellungen des Treibers "
  464.             "sollte jetzt zur genaueren Einstellung benutzt werden.\n"
  465.         "Achtung: die von dem Installations-Programm gemachten Voreinstellungen "
  466.         "sind sicher nicht optimal und müssen genauer an den Drucker angepaßt werden!"
  467.     ))
  468.     (set #wrongdither
  469.     (cat "\n\nACHTUNG: Die Workbench Voreinstellungen sind FALSCH!\n\n"
  470.         "Bitte selektieren Sie die \"geordnete\" (engl. ordered) "
  471.         "Dither-Methode mit Hilfe des \"PrinterGfX\"- bzw. \"Preferences\"-"
  472.         "Programms. Zur Erleichterung und zur Sicherheit wird das Programm "
  473.         "für die Voreinstellungen jetzt gestartet..."
  474.     ))
  475.     (set #pagestream
  476.     (cat "\n\nWollen Sie einen BJ2x0 Treiber für das DTP-Programm "
  477.         "PageStream V2.x installieren?\n\n"
  478.     ))
  479.     (set #pagestreamLBP
  480.     (cat "\n\nWollen Sie einen CaPSL 3-4 Treiber für das DTP-Programm "
  481.         "PageStream installieren?\n\n"
  482.     ))
  483.     (set #pagestreamA1
  484.     (cat "\n\nWollen Sie einen CaPSL 1-2 Treiber für das DTP-Programm "
  485.         "PageStream V2.x installieren?\n\n"
  486.     ))
  487.     (set #pagestream-help
  488.     (cat "\nDie Canon-Diskette enthält auch spezielle Druckertreiber für das DTP-Programm "
  489.         "PageStream V2.x. Sollten Sie das DTP-Programm besitzen, dann können Sie "
  490.         "mit diesen Treibern ca. 200 %% schneller drucken.\n\n"
  491.     ))
  492.     (set #pagestream-yes
  493.     (cat "Ja"
  494.     ))
  495.     (set #pagestream-no
  496.     (cat "Nein"
  497.     ))
  498.     (set #ask-pagestream
  499.     (cat "\nIn welche Schublade sollen die PageStream-Treiber (CanonA2 oder CanonLBP) "
  500.         "kopiert werden?"
  501.     ))
  502.     (set #ask-pagestream-help
  503.     (cat "\nIn diesem Teil können Sie die Ziel-Schublade für die PageStream "
  504.         "Druckertreiber wählen. Normalerweise sollte die "
  505.         "PageStream \"Printers\"-Schublade angegeben werden.\n\n"
  506.         @askdir-help
  507.     ))
  508.  
  509.  
  510.     (set #ask-docs
  511.     (cat "\nIn welche Schublade soll die Anleitung kopiert werden?"
  512.     ))
  513.     (set #ask-docs-help
  514.     (cat "\nIn diesem Teil können Sie die Ziel-Schublade für die Anleitung "
  515.         "der CanonDisk wählen.\n\n"
  516.         @askdir-help
  517.     ))
  518.     (set #abortdocs
  519.     (cat "\nDie Anleitung benötigt ca. 190000 Bytes "
  520.         "an freiem Speicherplatz auf der angegebenen Disk.\n\n"
  521.         "Leider habe Sie nicht genug Speicherplatz auf der Disk frei! "
  522.         "Bitte machen Sie genug Speicherkapazität frei und versuchen erneut "
  523.         "eine Installation!\n\n"
  524.     ))
  525.     (set #sorry
  526.     (cat "\n\nLeider war auf dieser Canon Diskette nicht mehr genug Platz für "
  527.         "den von Ihnen gewünschten Druckertreiber. Der gewünschte Treiber "
  528.         "befindet sich deshalb auf einer weiteren Treiberdiskette von Canon. "
  529.         "Bitte fordern Sie einen Treiber für Ihren Drucker gesondert von "
  530.         "Ihrem Händler oder der Canon Hotline an."
  531.     ))
  532.     (set #waitmsg
  533.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  534.     ))
  535.     (set docfile "Liesmich")
  536. ))
  537.  
  538.  
  539.  
  540.  
  541.  
  542.  
  543. ; **** Texte en français
  544. (if (= @language "français")
  545. (
  546.     (set #welcome
  547.     (cat "\nIntermédiaire : les pilotes d'imprimantes sont installés sur le disque système courant.\n"
  548.             "Expert:  les pilotes d'imprimantes peuvent être installés sur un disque quelconque.\n\n"
  549.     ))
  550.     (set #welcome-pirate
  551.     (cat "\nBienvenue dans CANONDISK: la disquette de gestion\n"
  552.             " des imprimantes Canon!\n\n"
  553.             "Copyright (C) 1992-95 par Wolf Faust\n"
  554.             "Distribution : Canon Europe N.V.\n"
  555.             "\nCE DISQUE NE PEUT ETRE DISTRIBUE\n"
  556.             "SANS PERMISSION ECRITE DE WOLF FAUST\n OU DE CANON EUROPE N.V.!\n"
  557.     ))
  558.     (set #bad-kick
  559.     (cat    "\nVotre logiciel système est trop ancien. "
  560.             "Utiliser le Kickstart 2.04 ou plus récent pour tous programmes Canon  "
  561.             "accessibles à la souris.   Cependant, vous pouvez utiliser les "
  562.             "pilotes d'imprimantes en attendant une mise à jour."
  563.     ))
  564.     (set #w-studio
  565.     (cat "Que désirez-vous installer ?"
  566.     ))
  567.     (set #w-studio-help
  568.     (cat "\nCe disque est organisé en deux parties indépendantes : "
  569.             "les pilotes d'imprimantes et le programme d'impression. "
  570.             "Choisissez maintenant ce que vous souhaitez installer!\n\n".
  571.             @askoptions-help
  572.     ))
  573.     (set #w-studio-choices1
  574.     (cat "pilotes d'imprimantes Canon"
  575.     ))
  576.     (set #w-studio-choices2
  577.     (cat "logiciel CanonStudio"
  578.     ))
  579.     (set #which-disk
  580.     (cat "Dans quel répertoire souhaitez-vous installer le logiciel CanonStudio ?"
  581.     ))
  582.     (set #which-disk-help
  583.     (cat "\nCette section vous permet de choisir le disque ou le répertoire où "
  584.             "installer CanonStudio. "
  585.             "En général dans le répertoire par défaut de vos logiciels graphiques. "
  586.             "\n\n"
  587.             @askdir-help
  588.     ))
  589.     (set #abortmsg
  590.     (cat "\nCette installation occupe environs 160000 octets sur le disque "
  591.             "choisi pour installer CanonStudio. Assurez-vous d'abord que cet espace "
  592.             "est disponible avant de ré-installer .\n\n"
  593.     ))
  594.     (set #abortunpack
  595.     (cat "\nErreur en cours de décompression/écriture d'un fichier !\nEtes-vous "
  596.             "sûr qu'il reste assez de place ?\n\n"
  597.     ))
  598.     (set #abortunpack2
  599.     (cat "\nErreur en cours de décompression/écriture d'un fichier ! "
  600.         "L'erreur s'est produite pendant la décompression du fichier :\n\n\"%s\"\n\n"
  601.     ))
  602.  
  603.     (set #ask-sys
  604.     (cat "\nDans quel disque ou répertoire souhaitez-vous installer les pilotes d'imprimantes Canon ?"
  605.     ))
  606.     (set #ask-sys-help
  607.     (cat "\nCette section vous permet de choisir le répertoire ou le disque où "
  608.             "installer les pilotes d'imprimantes Canon. "
  609.             "Normalement le répertoire  \"devs:printers\" du disque système.\n\n"
  610.             @askdir-help
  611.     ))
  612.  
  613.     (set #abortmsgdriver
  614.     (cat "\nCette installation occupe un peu plus de 45000 octets sur le disque "
  615.             "choisi pour installer les pilotes Canon. Assurez-vous d'abord que cet espace "
  616.             "est disponible avant de ré-installer .\n\n"
  617.     ))
  618.  
  619.     (set #ask-prefs
  620.     (cat "\nDans quel disque ou répertoire souhaitez-vous installer les préférences d'imprimantes Canon ?"
  621.     ))
  622.     (set #ask-prefs-help
  623.     (cat "\nCette section vous permet de choisir le répertoire ou le disque où "
  624.             "installer les préférences d'imprimantes Canon. "
  625.             "Normalement le répertoire  \"sys:prefs\" du disque système.\n\n"
  626.             @askdir-help
  627.     ))
  628.     (set #abortmsgpref
  629.     (cat "\nCette installation occupe un peu plus de 80000 octets sur le disque "
  630.             "choisi pour installer les préférences. Assurez-vous d'abord que cet espace "
  631.             "est disponible avant de ré-installer .\n Les utilisateurs de disquettes "
  632.                     "peuvent installer les préférences Canon sur n'importe quelle disquette ! \n\n"
  633.     ))
  634.     (set #missing-env-kick
  635.     (cat "\nPas de répertoire ENV: pour ranger les réglages des pilotes !\n"
  636.             "Les pilotes Canon rangent leur réglages (émulation, lumière...) dans ENV:. "
  637.             "Normalement, ENV: est créé à l'exécution du fichier standard S:startup-sequence de Commodore.\n"
  638.             "Il semble que S:startup-sequence ait été modifié. Veuiller changer S:startup-sequence "
  639.             "et ré-installer\n\n"
  640.     ))
  641.     (set #ask-env-mes
  642.     (cat "\nPas de répertoire ENV: pour ranger les réglages des pilotes !\n"
  643.             "Les pilotes Canon rangent leur réglages (émulation, lumière...) dans ENV:. "
  644.             "Normalement, ENV: est créé à l'exécution du fichier standard S:startup-sequence de Commodore.\n"
  645.             "Il semble que S:startup-sequence ait été modifié. Il est possible de modifier S:startup-sequence "
  646.             "à l'aide de ce programme.\n\n"
  647.     ))
  648.     (set #ask-env
  649.     (cat "\nDans quel répertoire souhaitez-vous sauvegarder l'environnement (ENV:) ?"
  650.     ))
  651.     (set #ask-env-help
  652.     (cat "\nCette section vous permet de choisir le répertoire où ranger les réglages "
  653.             "des pilotes d'imprimantes Canon. "
  654.             "C'est normalement le répertoire \"ENV:\" du disque système.\n\n"
  655.             "Assurez-vous que  ENV: est sauvé sur un disque non volatile, afin de retrouver "
  656.             "vos réglages à l'allumage de l'Amiga.\n\n"
  657.             @askdir-help
  658.     ))
  659.     (set #ask-startup
  660.     (cat "\nAssigner ENV: dans \"S:user-startup\"?"
  661.     ))
  662.     (set #ask-startup-help
  663.     (cat "\nCliquer OUI pour assigner ENV: depuis S:user-startup\n\n"
  664.             @startup-help
  665.     ))
  666.     (set #warn-env-kick
  667.     (cat "\nNote : Veuillez vous assurer que ENV: est assigné à un répertoire sur"
  668.             "un disque non volatile dans \"s:startup-sequence\" sauf à perdre les réglages du pilote"
  669.             "à l'extinction de l'ordinateur. Vérifiez la startup-sequence après"
  670.             "installation modifiez la si nécessaire.\n\n"
  671.             "Note: La startup-sequences standard du Workbench1.3.x n'assigne pas "
  672.             "ENV: à un répertoire non volatile et doit être modifiée\n"
  673.     ))
  674.     (set #cfm-delete
  675.     (cat "\n\nLes réglages de l'ancien pilote Canon peuvent-ils être effacés ?"
  676.     ))
  677.     (set #cfm-delete-help
  678.     (cat "\nIl semble qu'un pilote d'imprimante Canon soit déjà installé . "
  679.             "Il vous faut effacer les réglages de l'ancien pilote Canon  "
  680.             "avant d'en installer un nouveau.\n\n"
  681.     ))
  682.     (set #cfm-delete-1
  683.     (cat "Oui, effacer"
  684.     ))
  685.     (set #cfm-delete-2
  686.     (cat "Non"
  687.     ))
  688.     (set #cfmdelete
  689.     (cat "Vous n'avez pas permis l'effacement des réglages de l'ancien pilote ! "
  690.             "Désolé, il est impossible d'installer un pilote sans détruire les "
  691.             "précédents réglages, pour des raisons de sécurité. "
  692.             "Si vous décidez de les effacer, vous pourrez tenter une nouvelle installation !\n\n"
  693.     ))
  694.     (set #w-emul
  695.     (cat "Quelle est votre imprimante ?"
  696.     ))
  697.     (set #w-emul-help
  698.     (cat "\nCe disque contient plusieurs pilotes pour différentes "
  699.             "imprimantes Canon. "
  700.             "Au cas où votre imprimante ne figurerait pas dans la liste, reportez vous à son manuel pour "
  701.             "trouver les émulations acceptées par votre imprimante.\n\n"
  702.             "NOTE : les imprimantes acceptent souvent plusieurs émulations. "
  703.             "Il vous faudra peut-être tester plusieurs émulations avant de trouver "
  704.             "celle qui convient le mieux à vos besoins\n\n"
  705.             @askchoice-help
  706.     ))
  707.     (set #w-color
  708.     (cat "Quelle est votre imprimante ?"
  709.     ))
  710.     (set #w-color-help
  711.     (cat "\nLes pilotes d'imprimantes Canon permettent d'imprimer jusqu'à 256 niveaux de gris "
  712.             "pour simuler une imprimante couleur. Pour cela, veuillez choisir entre "
  713.             "couleur et 256 niveaux de gris.\n"
  714.             "Il est conseiller de choisir votre type d'imprimante par défaut. "
  715.             "Il vous sera possible de modifier ultérieurement ce choix dans le logiciel de préférences CanonPref.\n\n"
  716.             @askchoice-help
  717.     ))
  718.     (set #w-color-choice1
  719.     (cat "Couleur"
  720.     ))
  721.     (set #w-color-choice2
  722.     (cat "Noir & Blanc"
  723.     ))
  724.  
  725.     (set #finalmsg1
  726.     (cat "Le pilote que vous avez choisi est installé sous le nom de\n\""
  727.     ))
  728.  
  729.     (set #finalmsg2
  730.     (cat "\"\net devrait être sélectionné dans le programme de préférences du Workbench \"Printer\".\n"
  731.             "Le programme de préférences des pilotes Canon a été sauvé sous le nom :\n\"CanonPref\""
  732.             "\net devrait être utilisé pour modifier le comportement de l'imprimante selon vos besoins.\n"
  733.             "Note : les règlages sauvés par ce logiciel d'installation sont loins d'être optimaux."
  734.             " Veuiller modifier les paramêtre en fonction de votre imprimante et du papier utilisé."
  735.     ))
  736.  
  737.     (set #wrongdither
  738.     (cat "\n\nATTENTION : les préférences du Workbench sont mal règlées\n\n"
  739.             "Choisir \"Estompage\" \"ordonné\" (dans \"PrinterGfx\")."
  740.             " Nous allons maintenant essayer de lancer les préférences pour vous."
  741.     ))
  742.  
  743.     (set #pagestream
  744.     (cat "\n\nDésirez-vous installer un pilote pour Canon BJ2x0 "
  745.             "fonctionnant avec le logiciel de PAO PageStream 2.x ?\n\n"
  746.     ))
  747.     (set #pagestreamLBP
  748.     (cat "\n\nDésirez-vous installer un pilote pour Canon CaPSL 3-4"
  749.             "fonctionnant avec le logiciel de PAO PageStream 2.x ?\n\n"
  750.     ))
  751.     (set #pagestreamA1
  752.     (cat "\n\nDésirez-vous installer un pilote pour Canon CaPSL 1-2"
  753.             "fonctionnant avec le logiciel de PAO PageStream 2.x ?\n\n"
  754.     ))
  755.     (set #pagestream-help
  756.     (cat "\nCe disque contient un pilote spécialement adapté à PageStream 2.x "
  757.             "Si vous utilisez ce logiciel de PAO, vous pouvez installer ce pilote "
  758.             " qui permet d'accroître la vitesse d'impression de 200%%.\n"
  759.     ))
  760.     (set #pagestream-yes
  761.     (cat "Oui"
  762.     ))
  763.     (set #pagestream-no
  764.     (cat "Non"
  765.     ))
  766.  
  767.     (set #ask-pagestream
  768.     (cat "\nDans quel tiroir souhaitez-vous installer les pilotes PageStream (CanonA2 / CanonLBP) ?"
  769.     ))
  770.     (set #ask-pagestream-help
  771.     (cat "\nCette section vous permet de choisir le tiroir où sauver les pilotes pour PageStream. "
  772.             "Normallement le tiroir \"Printers\" de PageStream.\n\n"
  773.             @askdir-help
  774.     ))
  775.  
  776.     (set #ask-docs
  777.     (cat "\nDans quel tiroir faut-il sauver la documentation ?"
  778.     ))
  779.     (set #ask-docs-help
  780.     (cat "\nCette section vous propose de choisir le répertoire où sera sauvée la documentation Canon.\n\n"
  781.             @askdir-help
  782.     ))
  783.     (set #abortdocs
  784.     (cat "\nCette installation occupe >190000 octets sur le disque "
  785.             "où vous souhaitez installer la documentation. Assurez-vous que cet "
  786.             "espace est disponible avant de ré-installer.\n\n"
  787.     ))
  788.     (set #sorry
  789.     (cat "\n\nce disque n'inclut pas le logiciel demandé. "
  790.         "Il n'y avait pas suffisamment d'espace disque pour le driver souhaité. "
  791.         "Contactez votre revendeur ou la Hotline Canon et demandez une "
  792.         "disquette différente, contenant un driver pour votre imprimante."
  793.     ))
  794.     (set #waitmsg
  795.     (cat "\n\n\n\nInstaller travaille ! Veuillez attendre..."
  796.     ))
  797.     (set docfile "Readme")
  798. ))
  799.  
  800.  
  801. (welcome #welcome)
  802. (message #welcome-pirate)
  803.  
  804. ; **** sure we are running under a 2.04 ROM???
  805. (if (< (/ (getversion) 65536) 37)
  806.     (message #bad-kick)
  807. )
  808.  
  809. (complete 5)
  810.  
  811. ; **** Wich parts should get installed: driver &-| Studio?
  812. (set studio (askoptions (prompt #w-studio)
  813.     (help #w-studio-help)
  814.     (choices #w-studio-choices1 #w-studio-choices2)
  815.     (default 3)
  816.     )
  817. )
  818. (makeassign "CanonDisk_Install" (pathonly @icon))
  819. (set compl 60)
  820. (if (= studio 3)
  821. (
  822.     set compl 20
  823. ))
  824. (complete compl)
  825.  
  826. ; **** Install CanonStudio program?
  827. (if (IN studio 1)
  828. (
  829.     (set studdisk (getassign "WORK" "d"))
  830.     (if (= studdisk "")
  831.     (
  832.         (set studdisk (getassign "DH0" "d"))
  833.         (if (= studdisk "")
  834.         (
  835.             (set studdisk (getassign "DH2" "d"))
  836.             (if (= studdisk "")
  837.             (
  838.                 (set studdisk "SYS:")
  839.             ))
  840.         ))
  841.     ))
  842.     (set target (askdir (prompt #which-disk)
  843.         (help #which-disk-help)
  844.         (default studdisk))
  845.     )
  846.     (set @default-dest target)
  847.     (set targetsize (getdiskspace target))
  848.     (if (< targetsize 160000)
  849.     (
  850.         (if (<> (getdevice target) "RAM")
  851.         (
  852.             (abort #abortmsg)
  853.         ))
  854.     ))
  855.     (makeassign "STUDIOPARENT" target)
  856.     (set target (tackon target "CanonStudio"))
  857.     (if (= (exists target) 1)
  858.     (
  859.         (rename target (cat target "_V1.xx_OLD"))
  860.         (if (= (exists (cat target ".info")) 1)
  861.         (
  862.             (rename (cat target ".info") (cat target "_V1.xx_OLD.info"))
  863.         ))
  864.     ))
  865.     (complete (set compl (+ compl 10)))  ; 70 or 30
  866.     (working #waitmsg)
  867.     (set exerr (run (cat "CanonDisk_Install:lx x CanonDisk_Install:CanonStudio/CanonStudio.lzh \"STUDIOPARENT:\"")))
  868.     (if (> exerr 0)
  869.     (
  870.         (abort (#abortunpack2 "CanonStudio.lzh"))
  871.     ))
  872.     (complete (set compl (+ compl 10))) ; 80 or 40
  873.     (complete (set compl (+ compl 10))) ; 90 or 50
  874.     (set exerr (run (cat "CanonDisk_Install:lx x CanonDisk_Install:docs/CanonStudio" docfile ".lzh \"STUDIOPARENT:\"")))
  875.     (if (> exerr 0)
  876.     (
  877.         (abort (#abortunpack2 (cat "CanonStudio" docfile ".lzh")))
  878.     ))
  879.     (makeassign "STUDIOPARENT")
  880.     (complete (set compl (+ compl 5))) ; 95 or 65
  881.     (complete (set compl (+ compl 5))) ; 100 or 60
  882. ))
  883.  
  884. ; **** Install printer driver?
  885. (if (IN studio 0)
  886. (
  887.     (set @default-dest "")
  888.     ; find the devs:printers directory
  889.     (set studdisk "Devs:Printers")
  890.     (if (= @user-level 2)
  891.     (
  892.         (set studdisk (askdir (prompt #ask-sys)
  893.             (help #ask-sys-help)
  894.             (default studdisk))
  895.         )
  896.     ))
  897.     (if (not (exists studdisk))
  898.     (
  899.         (set studdisk (askdir (prompt #ask-sys)
  900.             (help #ask-sys-help)
  901.             (default studdisk))
  902.         )
  903.     ))
  904.     (complete (set compl (+ compl 5))) ; 65
  905.     (set targetsize (getdiskspace studdisk))
  906.     (if (< targetsize 45000)
  907.     (
  908.         (if (<> (getdevice studdisk) "RAM")
  909.         (
  910.             (abort #abortmsgdriver)
  911.         ))
  912.     ))
  913.  
  914.  
  915.     ; **** find the sys:prefs directory
  916.     (set prefdisk ("SYS:Prefs"))
  917.     (if (exists "sys:preferences")
  918.     (
  919.         (set prefdisk ("SYS:Preferences"))
  920.     ))
  921.     (if (exists "SYS:Prefs")
  922.     (
  923.         (set prefdisk ("SYS:Prefs"))
  924.     ))
  925.     (set prefdisk (askdir (prompt #ask-prefs)
  926.         (help #ask-prefs-help)
  927.         (default prefdisk))
  928.     )
  929.     (if (not (exists prefdisk))
  930.     (
  931.         (set prefdisk (askdir (prompt #ask-prefs)
  932.             (help #ask-prefs-help)
  933.             (default prefdisk))
  934.         )
  935.     ))
  936.     (set targetsize (getdiskspace prefdisk))
  937.     (if (< targetsize 80000)
  938.     (
  939.         (if (<> (getdevice prefdisk) "RAM")
  940.         (
  941.             (abort #abortmsgpref)
  942.         ))
  943.     ))
  944.     ; find the ENV: directory
  945.     (if (not (exists "ENV:"))
  946.     (
  947.         (if (< (/ (getversion) 65536) 37)
  948.             (abort #missing-env-kick)
  949.         )
  950.         (set envdisk "SYS:Env-Archive")
  951.         (if (exists "SYS:Prefs/Env-Archive")
  952.         (
  953.             (set envdisk "SYS:Prefs/Env-Archive")
  954.         ))
  955.         (message #ask-env-mes)
  956.         (set envdisk (askdir (prompt #ask-env)
  957.             (help #ask-env-help)
  958.             (default envdisk))
  959.         )
  960.         (startup
  961.             "System Environment"
  962.             (prompt #ask-startup)
  963.             (help #ask-startup-help )
  964.             (command ("Assign ENV: %s" envdisk))
  965.         )
  966.         (makeassign "ENV" envdisk)
  967.     )
  968.     ( ; else
  969.         (if (< (/ (getversion) 65536) 37)
  970.             (message #warn-env-kick)
  971.         )
  972.     ))
  973.     ; delete old ENV: and ENVARC: settings
  974.     (set n 0 )
  975.     (foreach "Env:" "Canon#?"
  976.     (
  977.         (set n 1)
  978.     ))
  979.     (if (> n 0)
  980.     (
  981.         (if (askbool (prompt (#cfm-delete))
  982.             (help (#cfm-delete-help ))
  983.             (choices #cfm-delete-1 #cfm-delete-2)
  984.             (default 1))
  985.         (
  986.             (set n 0)
  987.             (while (set thisfile (select n  "BEEP"
  988.                 "CADJ"
  989.                 "CDIT"
  990.                 "COLOR"
  991.                 "COMPRESS"
  992.                 "CONV"
  993.                 "COPY"
  994.                 "NODISP"
  995.                 "EMU"
  996.                 "FEED"
  997.                 "FONT"
  998.                 "FONTS"
  999.                 "FORM"
  1000.                 "GADJ"
  1001.                 "GDIT"
  1002.                 "GFEED"
  1003.                 "KADJ"
  1004.                 "KDIT"
  1005.                 "MADJ"
  1006.                 "MAGENTA"
  1007.                 "MDIT"
  1008.                 "MIRROR"
  1009.                 "MODE"
  1010.                 "NOSTRIP"
  1011.                 "ORIENT"
  1012.                 "OVER"
  1013.                 "PERF"
  1014.                 "RESX"
  1015.                 "RESY"
  1016.                 "SEP"
  1017.                 "SUPER"
  1018.                 "TAB"
  1019.                 "TIME"
  1020.                 "TOP"
  1021.                 "TYPE"
  1022.                 "YADJ"
  1023.                 "YDIT"
  1024.                 "YELLOW"
  1025.                 "GDitAlg"
  1026.                 "CDitAlg"
  1027.                 "OVERPAGE"
  1028.                 "FONT0"
  1029.                 "FONT1"
  1030.                 "FONT2"
  1031.                 "FONT3"
  1032.                 "FONT4"
  1033.                 "FONT5"
  1034.                 "FONT6"
  1035.                 "FONT7"
  1036.                 "FONT8"
  1037.                 "FONT9"
  1038.                 "FONT10"
  1039.                 "FONTDAT"
  1040.                 "" ))
  1041.             (
  1042.                 (set n (+ n 1))
  1043.                 (if (exists (cat "ENV:Canon" thisfile))
  1044.                 (
  1045.                     (delete (cat "ENV:Canon" thisfile))
  1046.                 ))
  1047.                 (if (>= (/ (getversion) 65536) 37)
  1048.                     (if (exists (cat "ENVARC:Canon" thisfile))
  1049.                     (
  1050.                         (delete (cat "ENVARC:Canon" thisfile))
  1051.                     ))
  1052.                 )
  1053.             ))
  1054.         )
  1055.         ( ; else
  1056.             (abort #cfmdelete)
  1057.         ))
  1058.     ))
  1059.  
  1060.     ; ask for kind of printer 
  1061.     (set emul   (askchoice (prompt #w-emul)
  1062.         (help #w-emul-help)
  1063.             (choices 
  1064.                 "Canon BJC 880     (CaPSL 4)" ; 0
  1065.                 "Canon LBP         (CaPSL 3)" ; 1
  1066.                 "Canon LBP (600dpi, CaPSL 4)" ; 2
  1067.                 "Canon A1,A2     (CaPSL 1-2)" ; 3
  1068.                 "Canon BJ 130 or 130e    (BJ)" ; 4
  1069.                 "Canon BJC 800       (Epson)" ; 5
  1070.                 "Canon BJC 600,600e  (Epson)" ; 6
  1071.                 "Canon BJC 4000      (Epson)" ; 7
  1072.                 "Canon BJ200,230,300,330 (BJ)" ; 8
  1073.                 "Canon BJ 5, 10 or 20    (BJ)" ; 9
  1074.             )
  1075.             (default 4)
  1076.     ))
  1077.  
  1078.     (complete (set compl (+ compl 5))) ;70
  1079.  
  1080.     ; ask for: color or b/w if not laser printer
  1081.     (if (= emul 4)
  1082.     (
  1083.         (set prtcolor (askchoice (prompt #w-color)
  1084.             (help #w-color-help)
  1085.             (choices #w-color-choice1
  1086.                 #w-color-choice2)
  1087.             (default 0)
  1088.         ))
  1089.         (if (> prtcolor 0)
  1090.         (
  1091.             (textfile   (dest "ENV:CanonSuper")
  1092.                 (append "ON"))
  1093.         ))
  1094.     ))
  1095.     ; make directory for dither adjustments
  1096.     (if (not (exists (tackon prefdisk "Dither-Settings")))
  1097.         (makedir (tackon prefdisk "Dither-Settings")
  1098.             (infos))
  1099.     )
  1100.     ; make directory for color adjustments
  1101.     (if (not (exists (tackon prefdisk "Color-Settings")))
  1102.         (makedir (tackon prefdisk "Color-Settings")
  1103.             (infos))
  1104.     )
  1105.     (set ditherord  "8 8  4 236 60 220 8 224 48 208 132 68 188 124 136 72 176 112 36 196 20 252 40 200 24 240 164 100 148 84 168 104 152 88 12 228 52 212 0 232 56 216 140 76 180 116 128 64 184 120 44 204 28 244 32 192 16 248 172 108 156 92 160 96 144 80") ; order 64
  1106.     ; now check wich kind of printer the user has
  1107.  
  1108.     (if (= emul 0)
  1109.     (  ; BJC 880
  1110.         (working #waitmsg)
  1111.         (set printerdriver "CanonBJC880")
  1112.         (set printerpref "CanonPrefBJC880")
  1113.         (set adj "0 79 106 127 144 158 171 183 194 204 214 223 231 240 247 255")
  1114.         (textfile   (dest "Env:CanonGDit")
  1115.             (append ditherord))
  1116.         (textfile   (dest "Env:CanonCDit")
  1117.             (append ditherord))
  1118.         (textfile   (dest "Env:CanonMDit")
  1119.             (append ditherord))
  1120.         (textfile   (dest "Env:CanonYDit")
  1121.             (append ditherord))
  1122.         (textfile   (dest "Env:CanonGAdj")
  1123.             (append adj))
  1124.         (textfile   (dest "Env:CanonCAdj")
  1125.             (append adj))
  1126.         (textfile   (dest "Env:CanonMAdj")
  1127.             (append adj))
  1128.         (textfile   (dest "Env:CanonYAdj")
  1129.             (append adj))
  1130.         ; *** unpack FontShop to destination
  1131.         (run (cat "CanonDisk_Install:unpack CanonDisk_Install:packed/LBP-BJC-FontShop.pkd \""
  1132.             (tackon prefdisk "FontShop")
  1133.             "\""
  1134.         ))
  1135.         (if (exists "RAM:StudioTemp")
  1136.         (
  1137.             (abort #abortunpack)
  1138.         ))
  1139.         (copyfiles (source "CanonDisk_Install:Prefs/FontShop.info")
  1140.             (dest prefdisk)
  1141.             (files)
  1142.             (nogauge)
  1143.             (infos))
  1144.         ; *** unpack overlay to destination
  1145.         (run (cat "CanonDisk_Install:unpack CanonDisk_Install:packed/Overlay.pkd \""
  1146.             (tackon prefdisk "Overlay")
  1147.             "\""
  1148.         ))
  1149.         (if (exists "RAM:StudioTemp")
  1150.         (
  1151.             (abort #abortunpack)
  1152.         ))
  1153.     ))
  1154.     (if (= emul 1)
  1155.     (  ; Canon LBP CaPSL 3
  1156.         (set printerdriver "CanonLBP")
  1157.         (set printerpref "CanonPrefLBP")
  1158.         (set adj "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255")
  1159.         (textfile   (dest "Env:CanonGDit")
  1160.             (append ditherord))
  1161.         (textfile   (dest "Env:CanonGAdj")
  1162.             (append adj))
  1163.         (if (askbool (prompt (#pagestreamLBP))
  1164.             (help (#pagestream-help ))
  1165.             (choices #pagestream-yes #pagestream-no))
  1166.         (
  1167.             (set pagedrawer (askdir (prompt #ask-pagestream)
  1168.                 (help #ask-pagestream-help)
  1169.                 (default "WORK:"))
  1170.             )
  1171.             ( if( exists (pagedrawer))
  1172.             (
  1173.                 (copyfiles (source "CanonDisk_Install:PageStream/CanonLBP.printer")
  1174.                     (dest pagedrawer)
  1175.                     (files)
  1176.                     (infos)
  1177.                     (nogauge))
  1178.             ))
  1179.         ))
  1180.         (working #waitmsg)
  1181.         ; *** unpack FontShop to destination
  1182.         (run (cat "CanonDisk_Install:unpack CanonDisk_Install:packed/LBP-BJC-FontShop.pkd \""
  1183.             (tackon prefdisk "FontShop")
  1184.             "\""
  1185.         ))
  1186.         (if (exists "RAM:StudioTemp")
  1187.         (
  1188.             (abort #abortunpack)
  1189.         ))
  1190.         (working #waitmsg)
  1191.         (copyfiles (source "CanonDisk_Install:Prefs/FontShop.info")
  1192.             (dest prefdisk)
  1193.             (files)
  1194.             (nogauge)
  1195.             (infos))
  1196.         ; *** unpack overlay to destination
  1197.         (run (cat "CanonDisk_Install:unpack CanonDisk_Install:packed/Overlay.pkd \""
  1198.             (tackon prefdisk "Overlay")
  1199.             "\""
  1200.         ))
  1201.         (if (exists "RAM:StudioTemp")
  1202.         (
  1203.             (abort #abortunpack)
  1204.         ))
  1205.     ))
  1206.     (if (= emul 2)
  1207.     (  ; Canon LBP CaPSL 4
  1208.         (set printerdriver "CanonLBP")
  1209.         (set printerpref "CanonPrefLBP")
  1210.         (set adj "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255")
  1211.         (textfile   (dest "Env:CanonGDit")
  1212.             (append ditherord))
  1213.         (textfile   (dest "Env:CanonGAdj")
  1214.             (append adj))
  1215.         (textfile   (dest "Env:CanonEmu")
  1216.             (append "1"))
  1217.         (if (askbool (prompt (#pagestreamLBP))
  1218.             (help (#pagestream-help ))
  1219.             (choices #pagestream-yes #pagestream-no))
  1220.         (
  1221.             (set pagedrawer (askdir (prompt #ask-pagestream)
  1222.                 (help #ask-pagestream-help)
  1223.                 (default "WORK:"))
  1224.             )
  1225.             ( if( exists (pagedrawer))
  1226.             (
  1227.                 (copyfiles (source "CanonDisk_Install:PageStream/CanonLBP.printer")
  1228.                     (dest pagedrawer)
  1229.                     (files)
  1230.                     (infos)
  1231.                     (nogauge))
  1232.             ))
  1233.         ))
  1234.         (working #waitmsg)
  1235.         ; *** unpack FontShop to destination
  1236.         (run (cat "CanonDisk_Install:unpack CanonDisk_Install:packed/LBP-BJC-FontShop.pkd \""
  1237.             (tackon prefdisk "FontShop")
  1238.             "\""
  1239.         ))
  1240.         (if (exists "RAM:StudioTemp")
  1241.         (
  1242.             (abort #abortunpack)
  1243.         ))
  1244.         (copyfiles (source "CanonDisk_Install:Prefs/FontShop.info")
  1245.             (dest prefdisk)
  1246.             (files)
  1247.             (nogauge)
  1248.             (infos))
  1249.         ; *** unpack overlay to destination
  1250.         (run (cat "CanonDisk_Install:unpack CanonDisk_Install:packed/Overlay.pkd \""
  1251.             (tackon prefdisk "Overlay")
  1252.             "\""
  1253.         ))
  1254.         (if (exists "RAM:StudioTemp")
  1255.         (
  1256.             (abort #abortunpack)
  1257.         ))
  1258.     ))
  1259.     (if (= emul 3)
  1260.     (  ; Canon A1 / A2
  1261.         (set printerdriver "CanonLBP")
  1262.         (set printerpref "CanonPrefLBP")
  1263.         (set adj "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255")
  1264.         (textfile   (dest "Env:CanonGDit")
  1265.             (append ditherord))
  1266.         (textfile   (dest "Env:CanonGAdj")
  1267.             (append adj))
  1268.         (textfile   (dest "Env:CanonNoDisp")
  1269.             (append "ON"))
  1270.         (if (askbool (prompt (#pagestreamA1))
  1271.             (help (#pagestream-help ))
  1272.             (choices #pagestream-yes #pagestream-no))
  1273.         (
  1274.             (set pagedrawer (askdir (prompt #ask-pagestream)
  1275.                 (help #ask-pagestream-help)
  1276.                 (default "WORK:"))
  1277.             )
  1278.             ( if( exists (pagedrawer))
  1279.             (
  1280.                 (copyfiles (source "CanonDisk_Install:PageStream/CanonA2.printer")
  1281.                     (dest pagedrawer)
  1282.                     (files)
  1283.                     (infos)
  1284.                     (nogauge))
  1285.             ))
  1286.         ))
  1287.     ))
  1288.  
  1289.     (if (= emul 4)
  1290.     (  ; Canon BJ130
  1291.         (set printerdriver "CanonBJ130")
  1292.         (set printerpref "CanonPrefBJ130")
  1293.         (set adj "0 72 100 121 138 153 167 179 190 201 211 221 230 239 247 255")
  1294.         (textfile   (dest "Env:CanonGDit")
  1295.             (append ditherord))
  1296.         (textfile   (dest "Env:CanonGAdj")
  1297.             (append adj))
  1298.     ))
  1299.     (if (= emul 5)
  1300.     (  ; BJC 800 Driver
  1301.         (abort #sorry)
  1302.     ))
  1303.  
  1304.     (if (= emul 6)
  1305.     (  ; BJC 600 Driver
  1306.         (abort #sorry)
  1307.     ))
  1308.  
  1309.     (if (= emul 7)
  1310.     (  ; Canon BJC4000
  1311.         (abort #sorry)
  1312.     ))
  1313.  
  1314.  
  1315.     (if (= emul 8)
  1316.     (  ; Canon BJ200-330
  1317.         (abort #sorry)
  1318.     ))
  1319.  
  1320.     (if (= emul 9)
  1321.     (  ; Canon BJ 5, 10 , 20
  1322.         (abort #sorry)
  1323.     ))
  1324.     (complete 75)
  1325.  
  1326.     (working #waitmsg)
  1327.     ; *** unpack driver to destination
  1328.     (run (cat "CanonDisk_Install:unpack CanonDisk_Install:drivers/"
  1329.         printerdriver
  1330.         ".pkd \""
  1331.         (tackon studdisk printerdriver)
  1332.         "\""
  1333.     ))
  1334.     (if (exists "RAM:StudioTemp")
  1335.     (
  1336.         (abort #abortunpack)
  1337.     ))
  1338.     (complete 80)
  1339.  
  1340.     ; *** unpack CanonPref to destination
  1341.     (run (cat "CanonDisk_Install:unpack CanonDisk_Install:Prefs/"
  1342.         printerpref
  1343.         ".pkd \""
  1344.         (tackon prefdisk "CanonPref")
  1345.         "\""
  1346.     ))
  1347.     (if (exists "RAM:StudioTemp")
  1348.     (
  1349.         (abort #abortunpack)
  1350.     ))
  1351.     (copyfiles (source "CanonDisk_Install:Prefs/CanonPref.info")
  1352.         (dest prefdisk)
  1353.         (files)
  1354.         (nogauge)
  1355.         (infos))
  1356.  
  1357.     ; **** copy ENV: vars to ENVARC:
  1358.     (if (>= (/ (getversion) 65536) 37)
  1359.     (
  1360.         (set n 0)
  1361.         (while (set thisfile (select n  "Beep"
  1362.                 "CADJ"
  1363.                 "CDIT"
  1364.                 "COLOR"
  1365.                 "COMPRESS"
  1366.                 "CONV"
  1367.                 "COPY"
  1368.                 "NODISP"
  1369.                 "NOSTRIP"
  1370.                 "EMU"
  1371.                 "FEED"
  1372.                 "FONT"
  1373.                 "FONTS"
  1374.                 "FORM"
  1375.                 "GADJ"
  1376.                 "GDIT"
  1377.                 "GFEED"
  1378.                 "KADJ"
  1379.                 "KDIT"
  1380.                 "MADJ"
  1381.                 "MAGENTA"
  1382.                 "MDIT"
  1383.                 "MIRROR"
  1384.                 "MODE"
  1385.                 "ORIENT"
  1386.                 "OVER"
  1387.                 "PERF"
  1388.                 "RESX"
  1389.                 "RESY"
  1390.                 "SEP"
  1391.                 "SUPER"
  1392.                 "TAB"
  1393.                 "TIME"
  1394.                 "TOP"
  1395.                 "TYPE"
  1396.                 "YADJ"
  1397.                 "YDIT"
  1398.                 "YELLOW"
  1399.                 "OVERPAGE"
  1400.                 "GDitAlg"
  1401.                 "CDitAlg"
  1402.                 "FONT0"
  1403.                 "FONT1"
  1404.                 "FONT2"
  1405.                 "FONT3"
  1406.                 "FONT4"
  1407.                 "FONT5"
  1408.                 "FONT6"
  1409.                 "FONT7"
  1410.                 "FONT8"
  1411.                 "FONT9"
  1412.                 "FONT10"
  1413.                 "FONTDAT"
  1414.                 "CanonBJECPref"
  1415.                 "" ))
  1416.         (
  1417.             (set n (+ n 1))
  1418.             (if (exists (cat "ENV:Canon" thisfile))
  1419.             (
  1420.                 (copyfiles (source (cat "ENV:Canon" thisfile))
  1421.                     (dest "ENVARC:")
  1422.                     (nogauge)
  1423.                     (files))
  1424.             ))
  1425.         ))
  1426.     ))
  1427.     (complete 85)
  1428.  
  1429.     ; *** unpack docs to destination
  1430.     (set docdisk ("SYS:Prefs"))
  1431.     (if (exists "sys:preferences")
  1432.     (
  1433.         (set docdisk ("SYS:Preferences"))
  1434.     ))
  1435.     (if (exists "SYS:Prefs")
  1436.     (
  1437.         (set docdisk ("SYS:Prefs"))
  1438.     ))
  1439.     (set docdisk (askdir (prompt #ask-docs)
  1440.         (help #ask-docs-help)
  1441.         (default docdisk))
  1442.     )
  1443.     (if (not (exists docdisk))
  1444.     (
  1445.         (set docdisk (askdir (prompt #ask-docs)
  1446.             (help #ask-docs-help)
  1447.             (default docdisk))
  1448.         )
  1449.     ))
  1450.     (working #waitmsg)
  1451.     (set targetsize (getdiskspace docdisk))
  1452.     (if (< targetsize 190000)
  1453.     (
  1454.         (if (<> (getdevice docdisk) "RAM")
  1455.         (
  1456.             (abort #abortdocs)
  1457.         ))
  1458.     ))
  1459.  
  1460.     (run (cat "CanonDisk_Install:unpack CanonDisk_Install:docs/"
  1461.         docfile
  1462.         ".pkd \""
  1463.         (tackon docdisk docfile)
  1464.         "\""
  1465.     ))
  1466.     (if (exists "RAM:StudioTemp")
  1467.     (
  1468.         (abort #abortunpack)
  1469.     ))
  1470.     (copyfiles (source (cat "CanonDisk_Install:"
  1471.                         docfile
  1472.                             ".info"))
  1473.         (dest docdisk)
  1474.         (files)
  1475.         (nogauge)
  1476.         (infos))
  1477.     (copyfiles (source "CanonDisk_Install:more")
  1478.         (dest docdisk)
  1479.         (files)
  1480.         (nogauge)
  1481.         (infos))
  1482.  
  1483.     (complete 90)
  1484.     (message (cat #finalmsg1
  1485.         printerdriver
  1486.         #finalmsg2)
  1487.     )
  1488.     (complete 95)
  1489.     (if (>= (/ (getversion) 65536) 37)
  1490.         (if (exists "sys:prefs/printer")
  1491.         (
  1492.             (run "sys:prefs/printer")
  1493.         ))
  1494.     )
  1495.     (run "CanonDisk_Install:check")
  1496.     (if (not (exists "RAM:StudioTemp"))
  1497.     (
  1498.         (message #wrongdither)
  1499.         (if (>= (/ (getversion) 65536) 37)
  1500.             (if (exists "sys:prefs/printergfx")
  1501.             (
  1502.                 (run "sys:prefs/printergfx")
  1503.             ))
  1504.         )
  1505.     )
  1506.     ( ; else
  1507.         (delete "RAM:StudioTemp")
  1508.     ))
  1509.     (if (< (/ (getversion) 65536) 37)
  1510.         (if (exists "sys:prefs/preferences")
  1511.         (
  1512.             (run "sys:prefs/preferences")
  1513.         ))
  1514.         ( ; else
  1515.             (run (cat "\""
  1516.                 (tackon prefdisk "CanonPref")
  1517.                 "\""))
  1518.         )
  1519.     )
  1520.  
  1521.     (complete 100)
  1522. ))
  1523. (makeassign "CanonDisk_Install")
  1524.